home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / 4th com (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  104 lines
  1. 5 IFSW=1GOTO15
  2. 10 SW=1:LOAD"E/F 4TH SM",8,1
  3. 15 L=2:H=157:POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
  4. 20 PRINT"[147]":POKE53280,13:POKE53281,1:POKE53272,23:GOTO1750
  5. 100 POKE646,6:POKE53272,21:S=17:T=TI:ZZ=FRE(0):SYS598
  6. 1200 T$="[145]'THY ":GOSUB1640:T$="FA":GOSUB1650:T$="THER ":GOSUB1650
  7. 1210 T$="AND ":GOSUB1640:T$="MO":GOSUB1650:T$="THER ":GOSUB1650
  8. 1220 T$="HO":GOSUB1640:T$="NOR ":GOSUB1640:T$="WELL.'":GOSUB1600:PRINT
  9. 1230 T$=" THE ":GOSUB1640:T$="FOURTH ":GOSUB1650
  10. 1240 T$="COM":GOSUB1650:T$="MAND":GOSUB1640:T$="MENT ":GOSUB1640
  11. 1250 T$="IS ":GOSUB1640:T$="FOR ":GOSUB1640:T$="ALL:":GOSUB1600:PRINT
  12. 1260 T$=" FOR ":GOSUB1640:T$="CHIL":GOSUB1650
  13. 1270 T$="DREN ":GOSUB1650:T$="AND ":GOSUB1640:T$="FOR ":GOSUB1650
  14. 1280 T$="THE ":GOSUB1650:T$="GROWN-":GOSUB1640:T$="UPS ":GOSUB1640
  15. 1290 T$="TOO. ":GOSUB1660:T$=" ALL ":GOSUB1640
  16. 1300 T$="MUST ":GOSUB1650:T$="O":GOSUB1650:T$="BEY ":GOSUB1640
  17. 1305 T$="THIS ":GOSUB1640:T$="LAW ":GOSUB1640:T$="OF ":GOSUB1640
  18. 1310 T$="GOD. ":GOSUB1600:PRINT:T$=" BY ":GOSUB1640:T$="O":GOSUB1650
  19. 1315 T$="BE":GOSUB1650:T$="DI":GOSUB1640:T$="ENCE ":GOSUB1640
  20. 1320 T$="WE ":GOSUB1640:T$="SHOW ":GOSUB1650:T$="RES":GOSUB1650
  21. 1325 T$="PECT,":GOSUB1600:PRINT:T$=" AND ":GOSUB1640:T$="BY ":GOSUB1650
  22. 1330 T$="OUR ":GOSUB1650:T$="CARE ":GOSUB1640:T$="OUR ":GOSUB1640
  23. 1335 T$="GRA":GOSUB1640:T$="TI":GOSUB1640:T$="TUDE":GOSUB1600:PRINT
  24. 1340 T$=" FOR ":GOSUB1640:T$="ALL ":GOSUB1650:T$="THE ":GOSUB1650
  25. 1345 T$="LOVE ":GOSUB1640:T$="THEY ":GOSUB1650:T$="HAVE ":GOSUB1650:
  26. 1350 T$="SHOWN ":GOSUB1640:T$="TO ":GOSUB1640:T$="US ":GOSUB1600:PRINT
  27. 1355 T$=" SINCE ":GOSUB1640:T$="WE ":GOSUB1650:T$="WERE ":GOSUB1650
  28. 1360 T$="IN":GOSUB1640:T$="FANTS ":GOSUB1640:T$="IN ":GOSUB1640
  29. 1365 T$="THEIR ":GOSUB1640:T$="ARMS.":GOSUB1600:PRINT:T$=" AF":GOSUB1640
  30. 1370 T$="TER ":GOSUB1640:T$="GOD ":GOSUB1600:T$="WE ":GOSUB1640
  31. 1375 T$="OWE ":GOSUB1640:T$="THEM ":GOSUB1600:T$="LOVE ":GOSUB1640
  32. 1380 T$="AND ":GOSUB1640:T$="VEN":GOSUB1640:T$="ER":GOSUB1640
  33. 1385 T$="A-":GOSUB1600:T$="TION,":PRINT:GOSUB1660:T$=" SINCE ":GOSUB1640:
  34. 1390 T$="WE ":GOSUB1640:T$="OWE ":GOSUB1640:T$="TO ":GOSUB1640
  35. 1395 T$="THEM ":GOSUB1640:T$="OUR ":GOSUB1640:T$="LIFE ":GOSUB1600
  36. 1400 T$="AND ":GOSUB1670:T$="ITS ":GOSUB1640:T$="SUP":GOSUB1640
  37. 1405 T$="PORT.":GOSUB1590:PRINT:T$=" GOD ":GOSUB1640
  38. 1410 T$="HIM":GOSUB1640:T$="SELF ":GOSUB1640:T$="HAS ":GOSUB1640
  39. 1415 T$="CHARGED ":GOSUB1640:T$="THEM ":GOSUB1640:T$="WITH ":GOSUB1600
  40. 1420 T$="                     OUR ":GOSUB1600:T$="ED":GOSUB1640:T$="U":GOSUB1640
  41. 1425 T$="CA":GOSUB1600:T$="TION.":GOSUB1600:PRINT:T$=" LET ":GOSUB1640
  42. 1430 T$="US ":GOSUB1640:T$="AP":GOSUB1600:T$="PRE":GOSUB1640
  43. 1435 T$="CI":GOSUB1640:T$="ATE ":GOSUB1600:T$="ALL ":GOSUB1640
  44. 1440 T$="THAT ":GOSUB1640:T$="THEY ":GOSUB1640
  45. 1445 T$="HAVE ":GOSUB1640:T$="DONE.":GOSUB1680
  46. 1450 FORAA=1TO5000:NEXT:GOTO1900
  47. 1590 T=T+8*S:PRINTT$;
  48. 1592 IFT>TITHEN1592
  49. 1595 RETURN
  50. 1600 T=T+4*S:PRINTT$;
  51. 1602 IFT>TITHEN1602
  52. 1605 RETURN
  53. 1640 T=T+2*S:PRINTT$;
  54. 1642 IFT>TITHEN1642
  55. 1645 RETURN
  56. 1650 T=T+S:PRINTT$;
  57. 1652 IFT>TITHEN1652
  58. 1655 RETURN
  59. 1660 T=T+4*S:PRINTSPC(30)T$
  60. 1662 IFT>TITHEN1662
  61. 1665 RETURN
  62. 1670 T=T+4*S:PRINTSPC(20)T$;
  63. 1672 IFT>TITHEN1672
  64. 1675 RETURN
  65. 1680 T=T+8*S:PRINTSPC(33)T$;
  66. 1682 RETURN
  67. 1750 POKE646,6:PRINT"[147]":PRINTTAB(9)"[212][200][197][160][198][207][213][210][212][200][160][195][207][205][205][193][206][196][205][197][206][212]
  68. 1760 [153][163]17)"+ + +
  69. 1765 PRINT"[212]EXT & [205]USIC [195]OMPOSED AND [208]ROGRAMMED
  70. 1770 [153][163]12)"BY (null)ELIGIOUS OF
  71. 1775 PRINTTAB(5)"[212]HE [207]RDER OF THE [205]OTHER OF [199]OD
  72. 1780 [153][163]11)"((null)RDO STR$EI (null)ATRIS)
  73. 1785 PRINTTAB(11)"[205]USIC BY MEANS OF:
  74. 1790 [153]"(null)USIC ATNSSEMBLER 64(LEN)(null)ICK (null)ULLIVAN
  75. 1795 PRINT"2011 [194]RIMLEY [210]D., [193]GINCOURT, [207]NT.":FORAA=1TO1000:NEXT
  76. 1798 POKE646,11:PRINTTAB(7)"[208]RESS [211]PACE [194]AR TO [195]ONTINUE
  77. 1800 [161]A$:[139]A$[178]""[167]1800
  78. 1810 [139]A$[178][199](32)[167][153]"LOAD":[129]AA[178]1[164]1500:[130]:[137]2100
  79. 1820 [139]A$[179][177][199](32)[167]1800
  80. 1900 [153]"LOAD":[153][163]10)"TO REPEAT - PRESS R
  81. 1905 PRINTTAB(8)"FOR MUSIC MENU - PRESS M
  82. 1910 [153][163]11)"TO QUIT - PRESS Q":[151]198,0
  83. 2020 [161]A$:[139]A$[178]""[167]2020
  84. 2030 [139]A$[178]"Q"[167][128]
  85. 2035 [139]A$[178]"R"[167]20
  86. 2040 [139]A$[178]"M"[167][153]"LOAD";:[137]2230
  87. 2050 [139]A$[179][177]"Q"[176]A$[179][177]"M"[176]A$[179][177]"R"[167]2020
  88. 2100 [153]"LOAD";:[151]53272,21:[151]53280,1:[151]53281,1:[151]646,5
  89. 2105 [153]"'THY FATHER AND MOTHER HONOR WELL.':
  90. 2110 PRINT"THE FOURTH COMMANDMENT IS FOR ALL:
  91. 2120 [153]"FOR CHILDREN AND FOR THE GROWN-UPS":[153][163]26)"TOO.
  92. 2130 PRINT"ALL MUST OBEY THIS LAW OF GOD.
  93. 2140 [153]"BY OBEDIENCE WE SHOW RESPECT,
  94. 2150 PRINT"AND BY OUR CARE OUR GRATITUDE
  95. 2160 [153]"FOR ALL THE LOVE THEY HAVE SHOWN TO US"
  96. 2170 [153]"SINCE WE WERE INFANTS IN THEIR ARMS.
  97. 2180 PRINT"AFTER GOD WE OWE THEM LOVE AND VENERA-":PRINTTAB(30)"TION,
  98. 2190 [153]"SINCE WE OWE TO THEM OUR LIFE":[153][163]11)"AND ITS SUPPORT.
  99. 2200 PRINT"GOD HIMSELF HAS CHARGED THEM WITH":PRINTTAB(16)"OUR EDUCATION;
  100. 2210 [153]"LET US APPRECIATE ALL THAT THEY HAVE":[153][163]31)"DONE.
  101. 2220 FORAA=1TO3000:NEXT:GOTO100
  102. 2230 POKE646,1:PRINT"LOAD"CHR$(34)"MUSIC MENU"CHR$(34)",8
  103. 2240 [153]"RUN":[151]198,3:[151]631,19:[151]632,13:[151]633,13
  104.